home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / town2.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  7KB  |  192 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieNo,movieName
  2.  
  3.  
  4. on moveMan direction
  5.   put stepNo + 1 into stepNo
  6.   if direction = 8 then
  7.     put 0 into moveH
  8.     put -9 into moveV
  9.     put 0 into RmoveH
  10.     put -72 into RmoveV
  11.     put 19 into startCast
  12.     put 22 into endCast
  13.   else if direction = 2 then
  14.     put 0 into moveH
  15.     put 9 into moveV
  16.     put 0 into RmoveH
  17.     put 72 into RmoveV
  18.     put 15 into startCast
  19.     put 18 into endCast
  20.   else if direction = 4 then
  21.     put -12 into moveH
  22.     put 0 into moveV
  23.     put -48 into RmoveH
  24.     put 0 into RmoveV
  25.     put 23 into startCast
  26.     put 26 into endCast
  27.   else if direction = 6 then
  28.     put 12 into moveH
  29.     put 0 into moveV
  30.     put 48 into RmoveH
  31.     put 0 into RmoveV
  32.     put 27 into startCast
  33.     put 30 into endCast
  34.   end if
  35.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  36.     SET THE CASTNUM OF SPRITE 13 TO startCast
  37.     UPDATESTAGE
  38.     mMove girl1
  39.     mMove girl2
  40.     EXIT
  41.   END IF
  42.   if direction = 8 then
  43.     repeat with spno in gEntranceList
  44.       if sprite 14 intersects spno then
  45.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U2"
  46.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  47.         UPDATESTAGE
  48.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U3"
  49.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  50.         UPDATESTAGE
  51.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U4"
  52.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  53.         UPDATESTAGE
  54.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U1"
  55.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  56.         UPDATESTAGE
  57.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U2"
  58.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  59.         UPDATESTAGE
  60.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U3"
  61.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  62.         UPDATESTAGE
  63.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U4"
  64.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 9
  65.         UPDATESTAGE
  66.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "U1"
  67.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 12
  68.         UPDATESTAGE
  69.         if spno = 34 then
  70.           go movie "TRAN2.DIR"
  71.           exit
  72.         else if spno = 35 then
  73.           put 440 into manH
  74.           put 298 into manV
  75.           put 432 into raderH
  76.           put 289 into raderV
  77.           play movie "DEPT"&string(random(2))&"1.DIR"
  78.           exit
  79.         else if spno = 36 then
  80.           play movie "RECR"&string(random(3))&".DIR"
  81.           exit
  82.         end if
  83.       end if
  84.     end repeat
  85.   end if
  86.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  87.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  88.   updateStage
  89.   if stepNo >= 5 then
  90.     repeat with spno in gGirlList
  91.       if sprite 14 intersects spno then
  92.         if random(7) = 2 then
  93.           go to marker(1)
  94.           
  95.           nanpa
  96.           
  97.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  98.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  99.           exit
  100.         end if
  101.         put getaProp(gMovieList,spno) into movieNo
  102.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  103.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  104.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  105.         puppetSprite 48, False
  106.         updateStage
  107.         sound stop 1
  108.         put "W" into movieName
  109.         playQTMovie
  110.         
  111.         put value(Hpoint) into thisHpoint
  112.         if thisHpoint > 0 then
  113.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  114.         else
  115.           put abs(thisHpoint) into Hpoint
  116.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  117.         end if
  118.         put totalHpoint + thisHpoint into totalHpoint
  119.         put totalHpoint into field "Hpoint"
  120.         put 0 into stepNo
  121.         EXIT
  122.       END IF
  123.     END REPEAT
  124.   end if
  125.   repeat with spno in gBlockList
  126.     if sprite 14 intersects spno then
  127.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  128.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  129.       UPDATESTAGE
  130.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  131.       UPDATESTAGE
  132.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  133.       UPDATESTAGE
  134.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  135.       UPDATESTAGE
  136.       SET THE CASTNUM OF SPRITE 13 TO startCast
  137.       UPDATESTAGE
  138.       mMove girl1
  139.       mMove girl2
  140.       EXIT
  141.     end if
  142.   end repeat
  143.   IF NOT(SPRITE 14 WITHIN 3) THEN
  144.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  145.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  146.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  147.     UPDATESTAGE
  148.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  149.     UPDATESTAGE
  150.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  151.     UPDATESTAGE
  152.     SET THE CASTNUM OF SPRITE 13 TO startCast
  153.     UPDATESTAGE
  154.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  155.     UPDATESTAGE
  156.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  157.     UPDATESTAGE
  158.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  159.     UPDATESTAGE
  160.     SET THE CASTNUM OF SPRITE 13 TO startCast
  161.     UPDATESTAGE
  162.     mMove girl1
  163.     mMove girl2
  164.   ELSE
  165.     if direction = 8 or direction = 2 then
  166.       put 2 into step
  167.     else
  168.       put 1 into step
  169.     end if
  170.     repeat with i = 1 to step
  171.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  172.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  173.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  174.       UPDATESTAGE
  175.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  176.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  177.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  178.       UPDATESTAGE
  179.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  180.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  181.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  182.       UPDATESTAGE
  183.       SET THE CASTNUM OF SPRITE 13 TO startCast
  184.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  185.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  186.       UPDATESTAGE
  187.     end repeat
  188.     mMove girl1
  189.     mMove girl2
  190.   END IF
  191. end
  192.